home *** CD-ROM | disk | FTP | other *** search
- (set @app-name "UFO_Enemy_Unclothed")
- (set @default-dest "Work:")
-
- (complete 0)
-
- (set #Prg-Dir
- (askdir
- (prompt "Choose destination for UFO_demo\nA directory called UFO_demo will be created there.")
- (help @askdir-help)
- (default @Default-Dest)
- )
- )
-
- (complete 10)
-
- (set #Prg-Dir (tackon #Prg-Dir "UFO_demo"))
-
- (set @default-dest #Prg-Dir)
-
- (makedir #Prg-Dir
- (infos)
- )
-
-
- (copyfiles
- (prompt "Copying UFO executable...\n")
- (help @copyfiles-help)
- (source ("CUdemo"))
- (dest #Prg-Dir)
- )
-
- (complete 20)
-
- (copyfiles
- (prompt "Copying demo game...\n")
- (help @copyfiles-help)
- (source ("CUgame"))
- (dest #Prg-Dir)
- )
-
- (complete 25)
-
- (copyfiles
- (prompt "Copying UFOdemo script...\n")
- (help @copyfiles-help)
- (source ("UFOdemo"))
- (dest #Prg-Dir)
- (infos)
- )
-
- (complete 30)
-
- (copyfiles
- (prompt "Copying U.F.O.data...\n")
- (help @copyfiles-help)
- (source ("U.F.O.data"))
- (dest (tackon #Prg-Dir "U.F.O.data"))
- (all)
- )
-
- (complete 50)
-
- (copyfiles
- (prompt "Copying U.F.O.maps...\n")
- (help @copyfiles-help)
- (source ("U.F.O.maps"))
- (dest (tackon #Prg-Dir "U.F.O.maps"))
- (all)
- )
-
- (complete 70)
-
- (copyfiles
- (prompt "Copying U.F.O.fonts...\n")
- (help @copyfiles-help)
- (source ("Fonts"))
- (dest (tackon #Prg-Dir "Fonts"))
- (all)
- )
-
- (complete 80)
-
- (copyfiles
- (prompt "Copying U.F.O.libs...\n")
- (help @copyfiles-help)
- (source ("libs"))
- (dest (tackon #Prg-Dir "libs"))
- (all)
- )
-
- (complete 90)
-
- (startup @app-name
- (prompt "\n\nMaking Assign in S:User-Startup...\n")
- (help @startup-help)
- (command "ASSIGN U.F.O.program: \"" #Prg-Dir "\"\n")
- )
-
- (makeassign "U.F.O.program" #Prg-Dir)
-
- (complete 100)
-
- (exit "\n\n\n"
- "The DEMO version of\n"
- "U.F.O. Enemy Unclothed\n"
- "is now installed in your\n\n"
- "\""@default-dest"\""
- "\n\ndrawer (or partition)."
- (quiet)
- )
-